From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Wed, 17 Feb 2021 13:27:56 +0000 (+0000)
Subject: ; Finish recent rename of completion-* predicates.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~18^2~3935
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=cccd701ac952f81da8444576a72d92b37ddf42d2;p=emacs.git

; Finish recent rename of completion-* predicates.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 739b56b88c6..0e89999b756 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -434,7 +434,7 @@ Value is a pair of positions (START . END) if there is a non-nil
 
 (defun shr-show-alt-text ()
   "Show the ALT text of the image under point."
-  (declare (completion (lambda (_ b) (completion-button-p 'shr b))))
+  (declare (completion (lambda (_ b) (command-completion-button-p 'shr b))))
   (interactive)
   (let ((text (get-text-property (point) 'shr-alt)))
     (if (not text)